home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Think Class Libraries / Expander / Expander Classes / CExpanderTitle.cp < prev    next >
Encoding:
Text File  |  1994-11-30  |  942 b   |  54 lines  |  [TEXT/KAHL]
  1. #include "CExpanderTitle.h"
  2.  
  3.  
  4. TCL_DEFINE_CLASS_D1( CExpanderTitle, CExpanderLabel );
  5.  
  6.  
  7. CExpanderTitle :: CExpanderTitle() : CExpanderLabel()
  8. {
  9.     TCL_END_CONSTRUCTOR
  10. }
  11.  
  12.  
  13.  
  14.  
  15. CExpanderTitle :: CExpanderTitle( CView *anEnclosure, CBureaucrat *aSupervisor, 
  16.                                   short aWidth, short aHeight, short aHLoc, short aVLoc,
  17.                                   SizingOption aHSizing, SizingOption aVSizing )
  18.                 : CExpanderLabel( anEnclosure, aSupervisor, aWidth, aHeight, aHLoc, aVLoc,
  19.                                   aHSizing, aVSizing )
  20. {
  21.     TCL_END_CONSTRUCTOR
  22. }
  23.  
  24.  
  25. CExpanderTitle :: ~CExpanderTitle()
  26. {
  27.     TCL_START_DESTRUCTOR
  28.  
  29.     itsText = NULL;
  30. }
  31.  
  32.  
  33. void CExpanderTitle :: SetLabelTextString( StringHandle hdl )
  34. {
  35.     itsText = hdl;
  36.     TextSizeChanged();
  37. }
  38.  
  39.  
  40. void CExpanderTitle :: PutTo( CStream &stream )
  41. {
  42.     stream << rsrcID << index;
  43.  
  44.     CExpanderLabel::PutTo( stream );
  45. }
  46.  
  47.  
  48. void CExpanderTitle :: GetFrom( CStream &stream )
  49. {
  50.     stream >> rsrcID >> index;
  51.  
  52.     CExpanderLabel::GetFrom( stream );
  53. }
  54.